home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / detect2r / mhdock.frm (.txt) < prev    next >
Visual Basic Form  |  1999-09-01  |  2KB  |  73 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMHDock 
  3.    Caption         =   "MHDock UserControl "
  4.    ClientHeight    =   1890
  5.    ClientLeft      =   1500
  6.    ClientTop       =   3135
  7.    ClientWidth     =   3840
  8.    LinkTopic       =   "Form1"
  9.    MDIChild        =   -1  'True
  10.    ScaleHeight     =   1890
  11.    ScaleWidth      =   3840
  12.    Begin prjMHDock.MHDock MHDock1 
  13.       Left            =   960
  14.       Top             =   1020
  15.       _ExtentX        =   847
  16.       _ExtentY        =   820
  17.    End
  18.    Begin VB.Label lblyDock 
  19.       Height          =   195
  20.       Left            =   1500
  21.       TabIndex        =   3
  22.       Top             =   420
  23.       Width           =   2235
  24.    End
  25.    Begin VB.Label lblxDock 
  26.       Height          =   195
  27.       Left            =   1500
  28.       TabIndex        =   2
  29.       Top             =   120
  30.       Width           =   2235
  31.    End
  32.    Begin VB.Label Label1 
  33.       Alignment       =   1  'Right Justify
  34.       Caption         =   "Vertical Snap:"
  35.       Height          =   255
  36.       Index           =   1
  37.       Left            =   180
  38.       TabIndex        =   1
  39.       Top             =   420
  40.       Width           =   1215
  41.    End
  42.    Begin VB.Label Label1 
  43.       Alignment       =   1  'Right Justify
  44.       Caption         =   "Horizontal Snap:"
  45.       Height          =   255
  46.       Index           =   0
  47.       Left            =   180
  48.       TabIndex        =   0
  49.       Top             =   120
  50.       Width           =   1215
  51.    End
  52. Attribute VB_Name = "frmMHDock"
  53. Attribute VB_GlobalNameSpace = False
  54. Attribute VB_Creatable = False
  55. Attribute VB_PredeclaredId = True
  56. Attribute VB_Exposed = False
  57. Option Explicit
  58. Private Sub Form_Load()
  59.     Move 0, 0, 3960, 3000
  60. End Sub
  61. Private Sub MHDock1_Moved(xDockPos As Single, yDockPos As Single)
  62.     Select Case xDockPos
  63.         Case 0: lblxDock.Caption = "Not docked"
  64.         Case 1: lblxDock.Caption = "Docked on the left"
  65.         Case 2: lblxDock.Caption = "Docked on the right"
  66.     End Select
  67.     Select Case yDockPos
  68.         Case 0: lblyDock.Caption = "Not docked"
  69.         Case 1: lblyDock.Caption = "Docked on the top"
  70.         Case 2: lblyDock.Caption = "Docked on the bottom"
  71.     End Select
  72. End Sub
  73.